
open Gero;;
open Unix;;
open Bigarray;;
open Thread;;


let mlMain n =
  Printf.printf "SPE Utilisables : %d\n" (spe_count_usable_spes ());
  flush Pervasives.stdout;
  let ctx = Gero.spe_context_create () in
    (
      Gero.load_hello1_spu ctx;
      Gero.spe_context_run ctx;
    )
      
;;


mlMain 0
;;
